home *** CD-ROM | disk | FTP | other *** search
/ D.I.S.C. 1 / D.I.S.C. 1.adf / basic / Zahlenumrechnung.bas
BASIC Source File  |  1989-01-10  |  480b  |  22 lines
  1. REM --- Umwandeln von Zahlensystemen by JPN/Level 4-ASD ---
  2. CLS:CLEAR
  3. INPUT "Umzurechnende Zahl";z$:INPUT "Basis (2/10/16)";b
  4. INPUT "Nach -> (2/10/16)";b2
  5. FOR i=1 TO LEN(z$)
  6. c=ASC(MID$(z$,i,1))
  7. summe=summe+(c+((c>64)*55)+((c<65)*48))*b^(LEN(z$)-i)
  8. NEXT i
  9. loop: IF b2^z<summe THEN z=z+1:GOTO loop
  10. FOR i=z-1 TO 0 STEP-1
  11. stelle=INT(summe/b2^i)
  12. n$=n$+CHR$(stelle+((stelle>9)*-55)+((stelle<10)*-48))
  13. summe=summe-(stelle*(b2^i))
  14. NEXT i
  15. PRINT n$
  16.  
  17.  
  18.                  
  19.  
  20.  
  21.                   
  22.